gcapp.set "messageVisible","false"
gcapp.get doc,frontDocument
doc.get details,"editingDetails"
if @details.count<3
  #msg=local("You cannot change the case when name is empty")
  UserOption "#var",#msg,"",local("OK")
  exit
endif
details.2.get nameStruct
FormatName "#newName",@nameStruct.contents,"uppersurname"
doc.beginUndo
nameStruct.set "contents",#newName
doc.endUndo local("Change Name Case")
